Mercurial > pub > dyncall > bindings

annotate ruby/rbdc/examples/win32screenres.rb @ 55:2e8a56976bf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed missing () making branch always be entered
author Tassilo Philipp
date Tue, 02 Feb 2021 20:56:54 +0100
parents 5e159be89d73
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 #//////////////////////////////////////////////////////////////////////
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2 #
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 # win32screeninfo.rb
1
5e159be89d73 - ruby and sh binding updates for dc r0.9
cslag
parents: 0
diff changeset
4 # Copyright 2015 Tassilo Philipp
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 #
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 # Dyncall sample loading user32.dll on windows and displaying a
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 # native windows message box by calling MessageBoxA(...).
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 #
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 #///////////////////////////////////////////////////////////////////////
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 require 'rbdc'
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 l = Dyncall::ExtLib.new
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 if l.load('user32') != nil
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 puts 'width: ' + l.call(:GetSystemMetrics, 'i)i', 0).to_s
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 puts 'height: ' + l.call(:GetSystemMetrics, 'i)i', 1).to_s
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 puts 'number of monitors: ' + l.call(:GetSystemMetrics, 'i)i', 80).to_s
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 end